home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mindbo1a / form1.frm < prev    next >
Text File  |  1999-08-28  |  17KB  |  495 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Mind Boggle "
  6.    ClientHeight    =   6060
  7.    ClientLeft      =   3855
  8.    ClientTop       =   3090
  9.    ClientWidth     =   6960
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6060
  15.    ScaleWidth      =   6960
  16.    Visible         =   0   'False
  17.    Begin VB.Timer Timer6 
  18.       Enabled         =   0   'False
  19.       Interval        =   10
  20.       Left            =   3240
  21.       Top             =   3720
  22.    End
  23.    Begin VB.Timer Timer5 
  24.       Enabled         =   0   'False
  25.       Interval        =   500
  26.       Left            =   5280
  27.       Top             =   4440
  28.    End
  29.    Begin VB.Timer Timer4 
  30.       Enabled         =   0   'False
  31.       Interval        =   10
  32.       Left            =   3720
  33.       Top             =   4440
  34.    End
  35.    Begin VB.Timer Timer3 
  36.       Enabled         =   0   'False
  37.       Interval        =   400
  38.       Left            =   2520
  39.       Top             =   4440
  40.    End
  41.    Begin MSComctlLib.Toolbar Toolbar1 
  42.       Align           =   2  'Align Bottom
  43.       Height          =   645
  44.       Left            =   0
  45.       TabIndex        =   9
  46.       Top             =   5415
  47.       Width           =   6960
  48.       _ExtentX        =   12277
  49.       _ExtentY        =   1138
  50.       ButtonWidth     =   1588
  51.       ButtonHeight    =   979
  52.       Appearance      =   1
  53.       ImageList       =   "ImageList1"
  54.       _Version        =   393216
  55.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  56.          NumButtons      =   3
  57.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.             Caption         =   "Start Game"
  59.             Key             =   "New"
  60.             ImageIndex      =   1
  61.          EndProperty
  62.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  63.             Caption         =   "space"
  64.             Key             =   "space"
  65.             Style           =   4
  66.             Object.Width           =   5150
  67.          EndProperty
  68.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Caption         =   "End Game"
  70.             Key             =   "End"
  71.             ImageIndex      =   2
  72.          EndProperty
  73.       EndProperty
  74.       BorderStyle     =   1
  75.    End
  76.    Begin MSComctlLib.ImageList ImageList1 
  77.       Left            =   720
  78.       Top             =   2640
  79.       _ExtentX        =   1005
  80.       _ExtentY        =   1005
  81.       BackColor       =   -2147483643
  82.       ImageWidth      =   19
  83.       ImageHeight     =   17
  84.       MaskColor       =   8421504
  85.       _Version        =   393216
  86.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  87.          NumListImages   =   2
  88.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "Form1.frx":000C
  90.             Key             =   ""
  91.          EndProperty
  92.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "Form1.frx":016C
  94.             Key             =   ""
  95.          EndProperty
  96.       EndProperty
  97.    End
  98.    Begin VB.Timer Timer2 
  99.       Enabled         =   0   'False
  100.       Interval        =   900
  101.       Left            =   1440
  102.       Top             =   4440
  103.    End
  104.    Begin VB.Timer Timer1 
  105.       Enabled         =   0   'False
  106.       Interval        =   1
  107.       Left            =   480
  108.       Top             =   4440
  109.    End
  110.    Begin VB.Label lblShowScore 
  111.       Alignment       =   2  'Center
  112.       BackStyle       =   0  'Transparent
  113.       BeginProperty Font 
  114.          Name            =   "MS Sans Serif"
  115.          Size            =   13.5
  116.          Charset         =   0
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       ForeColor       =   &H00C0C0C0&
  123.       Height          =   375
  124.       Left            =   240
  125.       TabIndex        =   10
  126.       Top             =   240
  127.       Width           =   375
  128.    End
  129.    Begin VB.Label lblLabel2 
  130.       BackColor       =   &H00FFC0FF&
  131.       BorderStyle     =   1  'Fixed Single
  132.       Height          =   1815
  133.       Index           =   3
  134.       Left            =   -240
  135.       TabIndex        =   8
  136.       Top             =   1800
  137.       Visible         =   0   'False
  138.       Width           =   2415
  139.    End
  140.    Begin VB.Label lblLabel2 
  141.       BackColor       =   &H008080FF&
  142.       BorderStyle     =   1  'Fixed Single
  143.       Height          =   1815
  144.       Index           =   0
  145.       Left            =   0
  146.       TabIndex        =   0
  147.       Top             =   0
  148.       Visible         =   0   'False
  149.       Width           =   2175
  150.    End
  151.    Begin VB.Label lblLabel2 
  152.       BackColor       =   &H000000FF&
  153.       BorderStyle     =   1  'Fixed Single
  154.       Height          =   1815
  155.       Index           =   4
  156.       Left            =   2160
  157.       TabIndex        =   7
  158.       Top             =   1800
  159.       Width           =   2415
  160.    End
  161.    Begin VB.Label lblLabel2 
  162.       BackColor       =   &H0000FFFF&
  163.       BorderStyle     =   1  'Fixed Single
  164.       Height          =   1815
  165.       Index           =   1
  166.       Left            =   2160
  167.       TabIndex        =   6
  168.       Top             =   0
  169.       Visible         =   0   'False
  170.       Width           =   2415
  171.    End
  172.    Begin VB.Label lblLabel2 
  173.       BackColor       =   &H0080C0FF&
  174.       BorderStyle     =   1  'Fixed Single
  175.       Height          =   1815
  176.       Index           =   8
  177.       Left            =   4560
  178.       TabIndex        =   5
  179.       Top             =   3600
  180.       Visible         =   0   'False
  181.       Width           =   2415
  182.    End
  183.    Begin VB.Label lblLabel2 
  184.       BackColor       =   &H00FF8080&
  185.       BorderStyle     =   1  'Fixed Single
  186.       Height          =   1815
  187.       Index           =   5
  188.       Left            =   4560
  189.       TabIndex        =   4
  190.       Top             =   1800
  191.       Visible         =   0   'False
  192.       Width           =   2415
  193.    End
  194.    Begin VB.Label lblLabel2 
  195.       BackColor       =   &H00800080&
  196.       BorderStyle     =   1  'Fixed Single
  197.       Height          =   1815
  198.       Index           =   7
  199.       Left            =   2160
  200.       TabIndex        =   3
  201.       Top             =   3600
  202.       Visible         =   0   'False
  203.       Width           =   2415
  204.    End
  205.    Begin VB.Label lblLabel2 
  206.       BackColor       =   &H00008080&
  207.       BorderStyle     =   1  'Fixed Single
  208.       Height          =   1815
  209.       Index           =   6
  210.       Left            =   0
  211.       TabIndex        =   2
  212.       Top             =   3600
  213.       Visible         =   0   'False
  214.       Width           =   2175
  215.    End
  216.    Begin VB.Label lblLabel2 
  217.       BackColor       =   &H0000FF00&
  218.       BorderStyle     =   1  'Fixed Single
  219.       Height          =   1815
  220.       Index           =   2
  221.       Left            =   4560
  222.       TabIndex        =   1
  223.       Top             =   0
  224.       Visible         =   0   'False
  225.       Width           =   2415
  226.    End
  227. End
  228. Attribute VB_Name = "Form1"
  229. Attribute VB_GlobalNameSpace = False
  230. Attribute VB_Creatable = False
  231. Attribute VB_PredeclaredId = True
  232. Attribute VB_Exposed = False
  233. Option Explicit
  234. 'Eric Larson
  235. 'This program was my final class project for a vb 6.0 class
  236.     
  237.     Dim intCounter6 As Integer
  238.     Dim lngVBcolors(0 To 7) As Long
  239.     Dim intNum3 As Integer
  240.     Dim intIndex As Integer
  241.     Dim intlevelNum As Integer
  242.     Dim intCheckNum As Integer
  243.     Dim intRandomNums(0 To 11) As Integer
  244.     Dim intCounter As Integer
  245.     Dim intCounter1 As Integer
  246.     Dim intCounter2 As Integer
  247.     Dim intLabelViewA(0 To 11) As Integer
  248.     Dim intNextLevel As Integer
  249.  Private Sub Form_Load()
  250.     Dim intNum As Integer
  251.     With Form1
  252.         .Top = (Screen.Height - Form1.Height) / 2
  253.         .Left = (Screen.Width - For